Option Explicit
Sub F_Sample029()
   'Microsoft DAO 3.6 Object Library ]wޥζ
   'ոF_Data.mdb F_Tbl01
   'ոF_Data01
    Dim myDb       As DAO.Database
    Dim myRst      As DAO.Recordset
    Dim myFileName As String
    Dim myTblName  As String
    Dim myKey      As String
    Dim myDataAr   As Variant
    Dim i          As Long
    Dim j          As Long
    myFileName = "F_Data.mdb"			'gJؼɮ
    myTblName = "F_Tbl01"        			'gJؼЪ
    Set myDb = OpenDatabase(ThisWorkbook.Path & "\" & myFileName)
   'HSQLӧRO
    myDb.Execute "DELETE FROM " & myTblName & " WHERE s > 50"
   'wgJƪu@
    With Worksheets("F_Data01").Cells(1, 1).CurrentRegion
        myDataAr = .Offset(1).Resize(.Rows.Count - 1).Value
    End With
   'ǳƨ즹
    Set myRst = myDb.OpenRecordset(myTblName)
    With myRst
        .Index = "PrimaryKey"			']w
        For i = 1 To UBound(myDataAr, 1)
           'jMsO_Qn
            myKey = myDataAr(i, 1)
            .Seek "=", myKey
            If .NoMatch Then
                MsgBox "sWs"
                .AddNew
                myRst(0).Value = myKey
                For j = 2 To .Fields.Count
                    myRst(j - 1).Value = myDataAr(i, j)
                Next
                .Update
            Else
                MsgBox "ץJs"
                .Edit
                For j = 2 To .Fields.Count
                    myRst(j - 1).Value = myDataAr(i, j)
                Next
                .Update
            End If
        Next
        .Close
    End With
    myDb.Close
    Set myRst = Nothing					'
    Set myDb = Nothing
End Sub
